home *** CD-ROM | disk | FTP | other *** search
/ CyberMycha Extra 2004 January / CyberMycha Extra 1-2004 (Poland) (Disc 2).bin / Pippi / gmsb.dir / Internal_6_annikaBlink.ls < prev    next >
Encoding:
Text File  |  2001-09-12  |  443 b   |  26 lines
  1. property meSprite, onLoc, offLoc, onOff
  2.  
  3. on beginSprite me
  4.   meSprite = sprite(me.spriteNum)
  5.   onLoc = meSprite.loc
  6.   offLoc = point(400, 2000)
  7.   meSprite.loc = offLoc
  8.   onOff = 0
  9. end
  10.  
  11. on exitFrame me
  12.   if onOff = 0 then
  13.     if random(30) = 1 then
  14.       onOff = 1
  15.       meSprite.loc = onLoc
  16.       updateStage()
  17.     end if
  18.   else
  19.     if random(2) = 1 then
  20.       onOff = 0
  21.       meSprite.loc = offLoc
  22.       updateStage()
  23.     end if
  24.   end if
  25. end
  26.